home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 96 / Amiga News 96.iso / dpat / dpaf6 / source / processmailbox.avmsrc < prev    next >
Text File  |  1977-12-31  |  14KB  |  625 lines
  1. startrecord=true
  2. label=
  3. nodetype=14
  4. comment=This is called as a command with mailbox
  5. nextactiontype=3
  6. nextactionaction=
  7. endrecord=true
  8. startrecord=true
  9. label=
  10. nodetype=7
  11. filename=avm:rexx/processmailboxhead.avm
  12. nextactiontype=3
  13. nextactionaction=
  14. endrecord=true
  15. startrecord=true
  16. label=
  17. nodetype=8
  18. line1=
  19. line2=parse arg mailbox .
  20. line3=call loadMailBox(mailbox)
  21. line4=calledSysop = 0
  22. line5=pagedSysop = 0
  23. line6=
  24. line7=
  25. line8=
  26. line9=
  27. line10=
  28. nextactiontype=3
  29. nextactionaction=
  30. endrecord=true
  31. startrecord=true
  32. label=
  33. nodetype=8
  34. line1=if mailbox.autoalertb = 1 & mailbox.autoalertscript ~= '' then
  35. line2=  address rexx 'alertsysop' mailbox
  36. line3=
  37. line4=
  38. line5=
  39. line6=
  40. line7=
  41. line8=
  42. line9=
  43. line10=
  44. nextactiontype=3
  45. nextactionaction=
  46. endrecord=true
  47. startrecord=true
  48. label=
  49. nodetype=1
  50. filename=voiceFile(mailbox,'Personal')
  51. comment=
  52. keyactiontype=0
  53. keyactionaction=aakeypressed
  54. faxactiontype=0
  55. faxactionaction=stdfax
  56. dataactiontype=0
  57. dataactionaction=stddata
  58. busyactiontype=0
  59. busyactionaction=stdbusy
  60. abortactiontype=0
  61. abortactionaction=stdabort
  62. erroractiontype=3
  63. erroractionaction=
  64. nextactiontype=3
  65. nextactionaction=
  66. endrecord=true
  67. startrecord=true
  68. label=aaAnnounce
  69. nodetype=8
  70. line1=if mailbox.autoforwardannounce = 1 & mailbox.autoforward ~= '' then call announceForwardNumber
  71. line2=
  72. line3=
  73. line4=
  74. line5=
  75. line6=
  76. line7=
  77. line8=
  78. line9=
  79. line10=
  80. nextactiontype=3
  81. nextactionaction=
  82. endrecord=true
  83. startrecord=true
  84. label=aanopersonal
  85. nodetype=1
  86. filename='avm:voices/MailboxGreeting'
  87. comment=Press 2 to send a fax now.  Or, wait for the beep, leave your message, then press 1 when you're done.
  88. keyactiontype=0
  89. keyactionaction=aakeypressed
  90. faxactiontype=0
  91. faxactionaction=stdfax
  92. dataactiontype=0
  93. dataactionaction=stddata
  94. busyactiontype=0
  95. busyactionaction=stdbusy
  96. abortactiontype=0
  97. abortactionaction=stdabort
  98. erroractiontype=0
  99. erroractionaction=stderror
  100. nextactiontype=3
  101. nextactionaction=
  102. endrecord=true
  103. startrecord=true
  104. label=
  105. nodetype=14
  106. comment=Init log file stuff
  107. nextactiontype=3
  108. nextactionaction=
  109. endrecord=true
  110. startrecord=true
  111. label=aaskipinstructions
  112. nodetype=8
  113. line1=handle = makeUniqueFile()
  114. line2=call initLogEntry()
  115. line3=call time('r')
  116. line4=
  117. line5=
  118. line6=
  119. line7=
  120. line8=
  121. line9=
  122. line10=
  123. nextactiontype=3
  124. nextactionaction=
  125. endrecord=true
  126. startrecord=true
  127. label=
  128. nodetype=8
  129. line1=userBeep = getclip('AVMUserBeep')
  130. line2=if userBeep = 'YES' then do
  131. line3=
  132. line4=
  133. line5=
  134. line6=
  135. line7=
  136. line8=
  137. line9=
  138. line10=
  139. nextactiontype=3
  140. nextactionaction=
  141. endrecord=true
  142. startrecord=true
  143. label=
  144. nodetype=1
  145. filename='avm:voices/UserBeep'
  146. comment=beep
  147. keyactiontype=0
  148. keyactionaction=aakeypressed
  149. faxactiontype=0
  150. faxactionaction=stdfax
  151. dataactiontype=0
  152. dataactionaction=stddata
  153. busyactiontype=0
  154. busyactionaction=stdbusy
  155. abortactiontype=0
  156. abortactionaction=stdabort
  157. erroractiontype=0
  158. erroractionaction=stderror
  159. nextactiontype=3
  160. nextactionaction=
  161. endrecord=true
  162. startrecord=true
  163. label=
  164. nodetype=8
  165. line1=end; else do
  166. line2=
  167. line3=
  168. line4=
  169. line5=
  170. line6=
  171. line7=
  172. line8=
  173. line9=
  174. line10=
  175. nextactiontype=3
  176. nextactionaction=
  177. endrecord=true
  178. startrecord=true
  179. label=
  180. nodetype=2
  181. frequency1=3000
  182. frequency2=0
  183. duration=4
  184. keyactiontype=3
  185. keyactionaction=aakeypressed
  186. faxactiontype=0
  187. faxactionaction=stdfax
  188. dataactiontype=0
  189. dataactionaction=stddata
  190. busyactiontype=0
  191. busyactionaction=stdbusy
  192. abortactiontype=0
  193. abortactionaction=stdabort
  194. erroractiontype=0
  195. erroractionaction=stderror
  196. nextactiontype=3
  197. nextactionaction=
  198. endrecord=true
  199. startrecord=true
  200. label=
  201. nodetype=8
  202. line1=end
  203. line2=
  204. line3=
  205. line4=
  206. line5=
  207. line6=
  208. line7=
  209. line8=
  210. line9=
  211. line10=
  212. nextactiontype=3
  213. nextactionaction=
  214. endrecord=true
  215. startrecord=true
  216. label=
  217. nodetype=0
  218. filename=voiceFile(mailbox,handle)
  219. recordinglength=0
  220. silenceinterval=-1
  221. silencethreshold=-1
  222. keyactiontype=2
  223. keyactionaction=call aafixlog; signal aakeypressedafterrecord
  224. quietactiontype=2
  225. quietactionaction=call aafixlog; signal stdabort
  226. silenceactiontype=2
  227. silenceactionaction=call aafixlog; if upper(getclip('AVMDataAfterSilence')) = 'YES' then signal stddata; else signal stdabort
  228. faxactiontype=2
  229. faxactionaction=call aafixlog; signal stdfax
  230. dataactiontype=2
  231. dataactionaction=call aafixlog; signal stddata
  232. busyactiontype=2
  233. busyactionaction=call aafixlog; signal stdbusy
  234. timedoutactiontype=2
  235. timedoutactionaction=call aafixlog; signal aakeypressedafterrecord
  236. abortactiontype=2
  237. abortactionaction=call aafixlog; signal stdabort
  238. erroractiontype=2
  239. erroractionaction=call aafixlog; signal stderror
  240. nextactiontype=3
  241. nextactionaction=
  242. endrecord=true
  243. startrecord=true
  244. label=
  245. nodetype=14
  246. comment=Shouldn't get here
  247. nextactiontype=0
  248. nextactionaction=stderror
  249. endrecord=true
  250. startrecord=true
  251. label=aafixlog
  252. nodetype=14
  253. comment=This writes out the log file
  254. nextactiontype=3
  255. nextactionaction=
  256. endrecord=true
  257. startrecord=true
  258. label=
  259. nodetype=8
  260. line1=if mailbox.autoforwardb = 1 & mailbox.autoforwardondemand = "" & calledSysop = 0 then do
  261. line2=
  262. line3=  call aaCallSysop
  263. line4=end
  264. line5=if mailbox.autopageb = 1 & mailbox.autopageondemand = "" & pagedSysop = 0 then do
  265. line6=
  266. line7=  call aaPageSysop
  267. line8=end
  268. line9=
  269. line10=
  270. nextactiontype=3
  271. nextactionaction=
  272. endrecord=true
  273. startrecord=true
  274. label=
  275. nodetype=8
  276. line1=log.filename = handle
  277. line2=log.length = trunc(time('e'))
  278. line3=log.type = 'voice'; log.origMailbox = mailbox
  279. line4=call saveLogEntry(mailbox, handle)
  280. line5=preConv = upper(getclip('AVMPreConvert')); preConvShow = upper(getclip('AVMShowPreConvertGUI'))
  281. line6=if preConv = 'YES' then
  282. line7=  if preConvShow = 'YES' then address command 'run >nil: <nil: avm:voice2iff' ,
  283. line8=    voiceFile(mailbox, handle) voiceFile(mailbox, handle) || 'i' '-preconvert'
  284. line9=  else address command 'run >nil: <nil: avm:voice2iff',
  285. line10=    voiceFile(mailbox, handle) voiceFile(mailbox, handle) || 'i' '-preconvert -nogui'
  286. nextactiontype=2
  287. nextactionaction=return
  288. endrecord=true
  289. startrecord=true
  290. label=aakeypressedafterrecord
  291. nodetype=12
  292. nextactiontype=3
  293. nextactionaction=
  294. endrecord=true
  295. startrecord=true
  296. label=processmailboxmenu
  297. nodetype=3
  298. filename='avm:voices/MailboxCaller'
  299. comment=Press 1 to leave another message, 2 to send a fax, 3 to electronically leave your telephone number, 4 to wake the sysop up, 6 to forward this message to the mailbox owner, 7 to call the mailbox owner's pager, or the * sign to end your call.  [5=data, 9=maintenance, #=previous menu, 0=repeat menu]
  300. retries=3
  301. zeroactiontype=0
  302. zeroactionaction=processmailboxmenu
  303. oneactiontype=0
  304. oneactionaction=aaAnnounce
  305. twoactiontype=0
  306. twoactionaction=stdfaxinstruct
  307. threeactiontype=2
  308. threeactionaction=call aaleavenumber()
  309. fouractiontype=2
  310. fouractionaction=good = getpassword(mailbox.autoalertondemand); if good then address rexx 'alertsysop' mailbox
  311. fiveactiontype=0
  312. fiveactionaction=stddatainstruct
  313. sixactiontype=2
  314. sixactionaction=good = getpassword(mailbox.autoforwardondemand); if good & calledSysop = 0 then call aaCallSysop()
  315. sevenactiontype=2
  316. sevenactionaction=good = getpassword(mailbox.autopageondemand); if good & pagedSysop = 0 then call aaPageSysop()
  317. eightactiontype=3
  318. eightactionaction=
  319. nineactiontype=2
  320. nineactionaction=call 'avmrexxalt:maintenancemode'(mailbox);if symbol('RESULT')~='VAR' then exit
  321. poundactiontype=2
  322. poundactionaction=return 1
  323. staractiontype=0
  324. staractionaction=answervoiceDone
  325. faxactiontype=0
  326. faxactionaction=stdfax
  327. dataactiontype=0
  328. dataactionaction=stddata
  329. busyactiontype=0
  330. busyactionaction=stdbusy
  331. timedoutactiontype=0
  332. timedoutactionaction=answervoiceDone
  333. abortactiontype=0
  334. abortactionaction=stdabort
  335. erroractiontype=0
  336. erroractionaction=stderror
  337. nextactiontype=0
  338. nextactionaction=processmailboxmenu
  339. endrecord=true
  340. startrecord=true
  341. label=
  342. nodetype=14
  343. comment=Shouldn't get here
  344. nextactiontype=0
  345. nextactionaction=stderror
  346. endrecord=true
  347. startrecord=true
  348. label=aaleavenumber
  349. nodetype=8
  350. line1=number = getNumber()
  351. line2=
  352. line3=
  353. line4=
  354. line5=
  355. line6=
  356. line7=
  357. line8=
  358. line9=
  359. line10=
  360. nextactiontype=3
  361. nextactionaction=
  362. endrecord=true
  363. startrecord=true
  364. label=
  365. nodetype=8
  366. line1=log.returnnumber = number
  367. line2=call updateLogEntry(mailbox, handle)
  368. line3=
  369. line4=
  370. line5=
  371. line6=
  372. line7=
  373. line8=
  374. line9=
  375. line10=
  376. nextactiontype=2
  377. nextactionaction=return
  378. endrecord=true
  379. startrecord=true
  380. label=aakeypressed
  381. nodetype=3
  382. filename='avm:voices/SkipFaxMaintenance'
  383. comment=Press 1 to skip the instructions, 2 to send a fax, 9 to enter maintenance mode [5=data, *=hangup, #=previous menu, 0=repeat menu]
  384. retries=3
  385. zeroactiontype=0
  386. zeroactionaction=aakeypressed
  387. oneactiontype=0
  388. oneactionaction=aaskipinstructions
  389. twoactiontype=0
  390. twoactionaction=stdfaxinstruct
  391. threeactiontype=0
  392. threeactionaction=aaAnnounce
  393. fouractiontype=3
  394. fouractionaction=
  395. fiveactiontype=0
  396. fiveactionaction=stddatainstruct
  397. sixactiontype=3
  398. sixactionaction=
  399. sevenactiontype=3
  400. sevenactionaction=
  401. eightactiontype=3
  402. eightactionaction=
  403. nineactiontype=2
  404. nineactionaction=call 'avmrexxalt:maintenancemode'(mailbox);if symbol('RESULT')~='VAR' then exit
  405. poundactiontype=2
  406. poundactionaction=return 1
  407. staractiontype=0
  408. staractionaction=stdabort
  409. faxactiontype=0
  410. faxactionaction=stdfax
  411. dataactiontype=0
  412. dataactionaction=stddata
  413. busyactiontype=0
  414. busyactionaction=stdbusy
  415. timedoutactiontype=0
  416. timedoutactionaction=answervoiceDone
  417. abortactiontype=0
  418. abortactionaction=stdabort
  419. erroractiontype=0
  420. erroractionaction=stderror
  421. nextactiontype=2
  422. nextactionaction=return
  423. endrecord=true
  424. startrecord=true
  425. label=aaCallSysop
  426. nodetype=8
  427. line1=procedure expose mailbox. mailbox calledSysop
  428. line2=if mailbox.autoforwardscript ~= "" & mailbox.autoforward ~= "" then do
  429. line3=     calledSysop = 1
  430. line4=     handle = makeUniqueFile()
  431. line5=     call initLogEntry(); log.origmailbox = mailbox
  432. line6=     log.filename = 'avm:voices/autoforward'; log.type = 'voice'
  433. line7=     log.returnsendfunc = mailbox.autoforwardscript; log.returninterval = 5
  434. line8=     log.returnretry = 3; log.returnnumber = mailbox.autoforward; log.altFileName = voiceFile(mailbox, 'Introduction')
  435. line9=     call saveLogEntry('Outgoing', handle)
  436. line10=
  437. nextactiontype=3
  438. nextactionaction=
  439. endrecord=true
  440. startrecord=true
  441. label=
  442. nodetype=1
  443. filename='avm:voices/BeingForwarded'
  444. comment=This message is being forwarded to the mailbox owner at...
  445. keyactiontype=3
  446. keyactionaction=
  447. faxactiontype=0
  448. faxactionaction=stdfax
  449. dataactiontype=0
  450. dataactionaction=stddata
  451. busyactiontype=0
  452. busyactionaction=stdbusy
  453. abortactiontype=0
  454. abortactionaction=stdabort
  455. erroractiontype=0
  456. erroractionaction=stderror
  457. nextactiontype=3
  458. nextactionaction=
  459. endrecord=true
  460. startrecord=true
  461. label=
  462. nodetype=8
  463. line1=    call playNumber(mailbox.autoforward)
  464. line2=
  465. line3=
  466. line4=
  467. line5=
  468. line6=
  469. line7=
  470. line8=
  471. line9=
  472. line10=
  473. nextactiontype=3
  474. nextactionaction=
  475. endrecord=true
  476. startrecord=true
  477. label=
  478. nodetype=12
  479. nextactiontype=3
  480. nextactionaction=
  481. endrecord=true
  482. startrecord=true
  483. label=
  484. nodetype=8
  485. line1=end
  486. line2=
  487. line3=
  488. line4=
  489. line5=
  490. line6=
  491. line7=
  492. line8=
  493. line9=
  494. line10=
  495. nextactiontype=2
  496. nextactionaction=return
  497. endrecord=true
  498. startrecord=true
  499. label=announceForwardNumber
  500. nodetype=1
  501. filename='avm:voices/AnnounceForward'
  502. comment=The following forwarding number was left by the mailbox owner...
  503. keyactiontype=3
  504. keyactionaction=
  505. faxactiontype=0
  506. faxactionaction=stdfax
  507. dataactiontype=0
  508. dataactionaction=stddata
  509. busyactiontype=0
  510. busyactionaction=stdbusy
  511. abortactiontype=0
  512. abortactionaction=stdabort
  513. erroractiontype=0
  514. erroractionaction=stderror
  515. nextactiontype=3
  516. nextactionaction=
  517. endrecord=true
  518. startrecord=true
  519. label=
  520. nodetype=8
  521. line1=call playNumber(mailbox.autoforward)
  522. line2=
  523. line3=
  524. line4=
  525. line5=
  526. line6=
  527. line7=
  528. line8=
  529. line9=
  530. line10=
  531. nextactiontype=3
  532. nextactionaction=
  533. endrecord=true
  534. startrecord=true
  535. label=
  536. nodetype=1
  537. filename='avm:voices/AnnounceAgain'
  538. comment=Press 3 to repeat the telephone number.
  539. keyactiontype=3
  540. keyactionaction=
  541. faxactiontype=0
  542. faxactionaction=stdfax
  543. dataactiontype=0
  544. dataactionaction=stddata
  545. busyactiontype=0
  546. busyactionaction=stdbusy
  547. abortactiontype=0
  548. abortactionaction=stdabort
  549. erroractiontype=0
  550. erroractionaction=stderror
  551. nextactiontype=2
  552. nextactionaction=return
  553. endrecord=true
  554. startrecord=true
  555. label=aaPageSysop
  556. nodetype=8
  557. line1=procedure expose mailbox. mailbox pagedSysop
  558. line2=if mailbox.autopagescript ~= "" & mailbox.autopage ~= "" then do
  559. line3=     pagedSysop = 1
  560. line4=     handle = makeUniqueFile()
  561. line5=     call initLogEntry(); log.origmailbox = mailbox
  562. line6=     log.filename = 'avm:voices/autoforward'; log.type = 'voice'
  563. line7=     log.returnsendfunc = mailbox.autopagescript; log.returninterval = 5
  564. line8=     log.returnretry = 3; log.returnnumber = mailbox.autopage; log.altFileName = voiceFile(mailbox, 'Introduction')
  565. line9=     call saveLogEntry('Outgoing', handle)
  566. line10=end
  567. nextactiontype=2
  568. nextactionaction=return
  569. endrecord=true
  570. startrecord=true
  571. label=answerVoiceDone
  572. nodetype=1
  573. filename='avm:voices/Goodbye'
  574. comment=Thanks for calling.  Bye now!
  575. keyactiontype=3
  576. keyactionaction=
  577. faxactiontype=0
  578. faxactionaction=stdfax
  579. dataactiontype=0
  580. dataactionaction=stddata
  581. busyactiontype=0
  582. busyactionaction=stdbusy
  583. abortactiontype=0
  584. abortactionaction=stdabort
  585. erroractiontype=0
  586. erroractionaction=stderror
  587. nextactiontype=2
  588. nextactionaction=exit
  589. endrecord=true
  590. startrecord=true
  591. label=
  592. nodetype=7
  593. filename=avm:rexx/simplestdtail.avm
  594. nextactiontype=3
  595. nextactionaction=
  596. endrecord=true
  597. startrecord=true
  598. label=
  599. nodetype=7
  600. filename=avm:rexx/mailboxfunctions.avm
  601. nextactiontype=3
  602. nextactionaction=
  603. endrecord=true
  604. startrecord=true
  605. label=
  606. nodetype=7
  607. filename=avm:rexx/playnumber.avm
  608. nextactiontype=3
  609. nextactionaction=
  610. endrecord=true
  611. startrecord=true
  612. label=
  613. nodetype=7
  614. filename=avm:rexx/getnumber.avm
  615. nextactiontype=3
  616. nextactionaction=
  617. endrecord=true
  618. startrecord=true
  619. label=
  620. nodetype=7
  621. filename=avm:rexx/getpassword.avm
  622. nextactiontype=3
  623. nextactionaction=
  624. endrecord=true
  625.